home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga News 95
/
Amiga News 95.iso
/
dpat
/
dpat66
/
rtrequest
/
demo
next >
Wrap
Text File
|
1994-05-10
|
5KB
|
132 lines
; #
; # Demo de script pour RTRequest v1.2
; #
Failat 30 ; Faut pas que le scripts s'interrompt des que
; RTRequest envoi un WARN.
Resident c:RTRequest ; On rend le programme résident
SetEnv choix ; On crée des variables
SetEnv Age
SetEnv Nom
RTRequest REQUEST "" "RTRequest v1.2*N*NScript de démonstration en AmigaDOS" "On y va|Abandonne" >ENV:choix
; Si l'utilisateur a appuyé sur le dernier bouton
; ***********************************************
if $choix EQ "0"
RTRequest REQUEST "" "Bin on continue quand même !" "Non mais.." >NIL:
endif
Lab Debut ; Label 'Debut'
; Requester d'affichage (on stocke pas le retour -> '>NIL:')
; **********************************************************
RTRequest REQUEST "" "RTRequest vous permet d'accèder*N*Naux superbes requesters de la 'reqtools.library'*N*Nà partir de l'AmigaDOS !" "Cool !" >NIL:
RTRequest REQUEST "" "RTRequest tiens compte des préférences*N*Nque vous avez réglez avec ReqToolsPrefs" "Ah !" >NIL:
RTRequest REQUEST "RTRequest Démo <-- T I T R E" "Vous pouvez mettre un titre à vos requesters !" "Ouah" >NIL:
RTRequest REQUEST "RTRequest Démo" "Ou encore mettre plein de boutons :" 1|2|3|4|5|6|7|8|9|0 >ENV:choix
; On affiche aussi le retour de la fonction précédente ($choix)
; *************************************************************
RTRequest REQUEST "RTRequest Démo" "Vous avez clické sur '$choix'." "Oui !" >NIL:
RTRequest REQUEST "RTRequest Démo" "On peut aussi activé un bouton par défaut !" "Ah oui ?|Lequel ?|Ah bon !" 2 >NIL:
RTRequest REQUEST "RTRequest Démo" "Ou mettre des raccourcis claviers :" "Choix n°_1|Choix n°_2|C_hoix n°x|_Abandonne" 2 >NIL:
RTRequest REQUEST "RTRequest Démo" "Vous avez accès à des requesters de fichiers" "_Normal|_Multi-Sélection" 0 >ENV:choix
; Si appui sur le 1er bouton => Requester de fichier normal
; *********************************************************
if $choix EQ "1"
RTRequest FILEREQUEST "RTRequest Démo - Sélection" "RAM:" "" #? >ENV:choix
if NOT WARN ; Si l'utilisateur n'a pas appuyé sur le gadget de fermeture
; **********************************************************
RTRequest REQUEST "RTRequest Démo" Vous avez sélectionné $choix "_Merci" 0 >NIL:
else ; Si l'utilisateur a appuyé sur le gadget de fermeture
; ****************************************************
RTRequest REQUEST "RTRequest Démo" "Vous n'avez rien sélectionné !" _Vivi 0 >NIL:
endif
else ; Appui sur le 2eme bouton => Requester de multiple fichier
; *********************************************************
RTRequest MFILEREQUEST "RTRequest Démo - Sélection" >ENV:choix
if NOT WARN ; Si l'utilisateur n'a pas appuyé sur le gadget de fermeture
; **********************************************************
RTRequest REQUEST "RTRequest Démo" "Vous avez sélectionné des fichiers" "Merci" 0 >NIL:
else ; Si l'utilisateur a appuyé sur le gadget de fermeture
; ****************************************************
RTRequest REQUEST "RTRequest Démo" "Vous n'avez rien sélectionné !" _Vivi 0 >NIL:
endif
endif
RTRequest REQUEST "RTRequest Démo" "Voyons encore d'autres REQUESTERS" "_Ok !" 0 >NIL:
Lab Age ; LABEL 'Age'
RTRequest GETNUMBER "Ton age ?" "" 0 80 >ENV:Age
if WARN ; Si l'utilisateur a appuyé sur le gadget de fermeture
; ****************************************************
RTRequest REQUEST "RTRequest Démo" "Vous devez rentrer votre âge !" "_Ok !" 0 >NIL:
Skip Age BACK ; On retourne au Label Age
endif ; ************************
Lab Nom ; LABEL 'Nom'
RTRequest GETSTRING "Ton prénom ?" >ENV:Nom
if WARN ; Si l'utilisateur a appuyé sur le gadget de fermeture
; ****************************************************
RTRequest REQUEST "RTRequest Démo" "Vous devez rentrer votre prénom !" "_Ok !" 0 >NIL:
Skip Nom BACK ; On retourne au label 'Nom'
endif ; **************************
RTRequest REQUEST "RTRequest Démo" "Alors tu t'appelles '$Nom' et tu as $Age ans !" "_Ok ?" 0 >NIL:
RTRequest REQUEST "RTRequest Démo" "Et en plus ca se programme facilement en AmigaDOS !" "_Cool ?" 0 >NIL:
RTRequest REQUEST "RTRequest Démo" "La demo est fini" "_Recommencer|_Sortir" 1 >ENV:choix
if NOT WARN ; Si l'utilisateur n'a pas appuyé sur le dernier gadget
; *****************************************************
skip Debut BACK ; On remonte au label Debut
endif
UnSetEnv choix ; On libère la variable
UnSetEnv Age
UnSetEnv Nom
c:Resident c:RTRequest REMOVE
; ATTENTION :
; ***********
;
; * Si vous ne voulez pas de retour de la part de RTRequest
; faite : RTRequest {arguments} >NIL:
; * N'oublié surtout pas de libérer la mémoire (unsetenv) risque d'erreur ou plantage du système
;